home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
fb386
/
egcg1
/
g41.bas
< prev
next >
Wrap
BASIC Source File
|
1991-10-18
|
319b
|
12 lines
100 ' G41 T.WAKAMATSU
110 CLS
120 FOR K=1 TO 5
130 Y=238:READ A,C,F,E:DATA 11,5,5,1,9,4,5,3,10,4,8,5,4,1,9,4,0,0,0,0
140 FOR X=2 TO 318 STEP 4
150 LINE(X,Y)-(636-X,476-Y) ,PSET,C,B
160 LINE(320-X,239-Y)-(316+X,237+Y),PSET,E,B
170 Y=Y-3:C=A-C:E=F-E
190 NEXT X
220 NEXT K
230 CD PAUSE